load ListOptionals

NewLine
cell static,local(NAME)&":"
sizetofit
set offset 2
#numPlace+=1

! edit field with value
#edge=#rightMargin$-#rightSkip-22-#cellSkip
cell editvalue
set width #edge-#hpos$
help local("Enter the full name for this place")

gosub ListOptionals FORM,DATE,LANG,"",""
#otags=#opts[0]+1
#opts[#otags]="TRAN"
#opts[0]=#otags
Show _OPTIONAL_TAGS

ShowAll FORM
ShowAll DATE
#pass="_PLACE "&#numPlace
ShowAll LANG,#pass
#numTRAN=0
ShowAll TRAN,#pass
